home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / nocaps.pprx < prev    next >
Text File  |  1992-03-14  |  1KB  |  55 lines
  1. /*
  2. @BNoCaps  @P@ICopyright Gold Disk Inc., February, 1992
  3. This Genie will change all letters in a block of text to lower case.
  4.  
  5. */
  6. if ~show(l, "gdarexxsupport.library") then
  7.     if ~(exists("libs:gdarexxsupport.library") & addlib("gdarexxsupport.library", 0, -30)) then
  8.    exit_msg("Please install the gdarexxsupport.library in your libs: directory before running this Genie")
  9.  
  10. if word(ppm_GetState(), 1) ~= "3" then
  11.     exit_msg("This Genie works only in edit mode!!")
  12.  
  13. text   = ppm_GetBlockText(1)
  14. if text  = '' then exit_msg("No block selected")
  15.  
  16. i = 1
  17. len = length(text)
  18. lrange = xrange('a', 'z')
  19. urange = xrange('A', 'Z')
  20. call ppm_ShowStatus("Working...")
  21.  
  22. do while i < len
  23.  
  24.     curletter = substr(text, i, 1)
  25.  
  26.     do while curletter= '\' 
  27.        i = skipcodes(text, i)
  28.        curletter = substr(text, i, 1)
  29.     end
  30.  
  31.     if curletter = ' ' then
  32.     do
  33.        i = i + 1
  34.        iterate
  35.     end
  36.  
  37.    curletter = translate(curletter, lrange, urange)
  38.    text = overlay(curletter, text, i)
  39.    i = i + 1
  40. end
  41.  
  42. call ppm_InsertText(text)
  43. call ppm_ClearStatus()
  44. exit
  45.  
  46. exit_msg:
  47. do
  48.     parse arg msg
  49.  
  50.     call ppm_ShowStatus(msg)
  51.     exit
  52. end
  53.  
  54.  
  55.